home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacOberonLite 1.0.1 / Sys Files / MacMoreToolbox.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1993-06-19  |  8.0 KB  |  135 lines  |  [.Ob./.Ob4]
  1. Syntax10.Scn.Fnt
  2. Syntax10b.Scn.Fnt
  3. Chicago10.Scn.Fnt
  4. MODULE MacMoreToolbox;
  5. (* This Module contains all essentiel constants, datatypes and routines from the NEW Inside Macintosh
  6.             More Macintosh Toolbox
  7.     However this implementation is NOT complete. If use miss some items, please use Inside Mac
  8.     and complete this module for your needs.
  9.     See the documentation ( MakeMacApp.Doc ) for more information about the usage of this module.  *)
  10. IMPORT 
  11.     SYSTEM,TB:=MacToolbox,ME:=MacMemory,MF:=MacFiles;
  12. CONST
  13.     (* Help Manager *)
  14.         kHMHelpMenuID*=-16490;
  15.     (* Sound Manager *)
  16.     SndCommand*= RECORD
  17.         cmd* : INTEGER;
  18.         param1* : INTEGER;
  19.         param2* : LONGINT
  20.     END;
  21.     SndChannelPtr* = ME.Ptr;
  22.     (* Scrap Manager *)
  23.     PScrapStuff* = POINTER- TO ScrapStuff;
  24.     ScrapStuff* = RECORD
  25.         scrapSize*: LONGINT;
  26.         scrapHandle*: ME.Handle;
  27.         scrapCount*: INTEGER;
  28.         scrapState*: INTEGER;
  29.         scrapName*: ME.StringPtr
  30.     END;
  31.     (* Resource Manager *)
  32.     PROCEDURE- InitResources*(): INTEGER    0A9H,095H;
  33.     PROCEDURE- RsrcZoneInit*    0A9H,096H;
  34.     PROCEDURE- CloseResFile*(refNum: INTEGER)    0A9H,09AH;
  35.     PROCEDURE- ResError*(): INTEGER    0A9H,0AFH;
  36.     PROCEDURE- CurResFile*(): INTEGER    0A9H,094H;
  37.     PROCEDURE- HomeResFile*(theResource: ME.Handle): INTEGER    0A9H,0A4H;
  38.     PROCEDURE- CreateResFile*(fileName: ME.Str255)    0A9H,0B1H;
  39.     PROCEDURE- OpenResFile*(fileName: ME.Str255): INTEGER    0A9H,097H;
  40.     PROCEDURE- UseResFile*(refNum: INTEGER)    0A9H,098H;
  41.     PROCEDURE- CountTypes*(): INTEGER    0A9H,09EH;
  42.     PROCEDURE- Count1Types*(): INTEGER    0A8H,01CH;
  43.     PROCEDURE- GetIndType*(VAR theType: LONGINT;index: INTEGER)    0A9H,09FH;
  44.     PROCEDURE- Get1IndType*(VAR theType: LONGINT;index: INTEGER)    0A8H,00FH;
  45.     PROCEDURE- SetResLoad*(load: BOOLEAN)    0A9H,09BH;
  46.     PROCEDURE- CountResources*(theType: LONGINT): INTEGER    0A9H,09CH;
  47.     PROCEDURE- Count1Resources*(theType: LONGINT): INTEGER    0A8H,00DH;
  48.     PROCEDURE- GetIndResource*(theType: LONGINT;index: INTEGER): ME.Handle    0A9H,09DH;
  49.     PROCEDURE- Get1IndResource*(theType: LONGINT;index: INTEGER): ME.Handle    0A8H,00EH;
  50.     PROCEDURE- GetResource*(theType: LONGINT;theID: INTEGER): ME.Handle    0A9H,0A0H;
  51.     PROCEDURE- Get1Resource*(theType: LONGINT;theID: INTEGER): ME.Handle    0A8H,01FH;
  52.     PROCEDURE- GetNamedResource*(theType: LONGINT;name: ME.Str255): ME.Handle    0A9H,0A1H;
  53.     PROCEDURE- Get1NamedResource*(theType: LONGINT;name: ME.Str255): ME.Handle    0A8H,020H;
  54.     PROCEDURE- LoadResource*(theResource: ME.Handle)    0A9H,0A2H;
  55.     PROCEDURE- ReleaseResource*(theResource: ME.Handle)    0A9H,0A3H;
  56.     PROCEDURE- DetachResource*(theResource: ME.Handle)    0A9H,092H;
  57.     PROCEDURE- UniqueID*(theType: LONGINT): INTEGER    0A9H,0C1H;
  58.     PROCEDURE- Unique1ID*(theType: LONGINT): INTEGER    0A8H,010H;
  59.     PROCEDURE- GetResAttrs*(theResource: ME.Handle): INTEGER    0A9H,0A6H;
  60.     PROCEDURE- GetResInfo*(theResource: ME.Handle;VAR theID: INTEGER;VAR theType: LONGINT;
  61.         VAR name: ME.Str255)    0A9H,0A8H;
  62.     PROCEDURE- SetResInfo*(theResource: ME.Handle;theID: INTEGER;name: ME.Str255)    0A9H,0A9H;
  63.     PROCEDURE- AddResource*(theResource: ME.Handle;theType: LONGINT;theID: INTEGER;
  64.         name: ME.Str255)    0A9H,0ABH;
  65.     PROCEDURE- SizeResource*(theResource: ME.Handle): LONGINT    0A9H,0A5H;
  66.     PROCEDURE- MaxSizeRsrc*(theResource: ME.Handle): LONGINT    0A8H,021H;
  67.     PROCEDURE- RsrcMapEntry*(theResource: ME.Handle): LONGINT    0A9H,0C5H;
  68.     PROCEDURE- SetResAttrs*(theResource: ME.Handle;attrs: INTEGER)    0A9H,0A7H;
  69.     PROCEDURE- ChangedResource*(theResource: ME.Handle)    0A9H,0AAH;
  70.     PROCEDURE- RmveResource*(theResource: ME.Handle)    0A9H,0ADH;
  71.     PROCEDURE- UpdateResFile*(refNum: INTEGER)    0A9H,099H;
  72.     PROCEDURE- WriteResource*(theResource: ME.Handle)    0A9H,0B0H;
  73.     PROCEDURE- SetResPurge*(install: BOOLEAN)    0A9H,093H;
  74.     PROCEDURE- GetResFileAttrs*(refNum: INTEGER): INTEGER    0A9H,0F6H;
  75.     PROCEDURE- SetResFileAttrs*(refNum: INTEGER;attrs: INTEGER)    0A9H,0F7H;
  76.     PROCEDURE- OpenRFPerm*(fileName: ME.Str255;vRefNum: INTEGER;permission: SHORTINT): INTEGER    0A9H,0C4H;
  77.     PROCEDURE- RGetResource*(theType: LONGINT;theID: INTEGER): ME.Handle    0A8H,00CH;
  78.     PROCEDURE- HOpenResFile*(vRefNum: INTEGER;dirID: LONGINT;fileName: ME.Str255;
  79.         permission: SHORTINT): INTEGER    0A8H,01AH;
  80.     PROCEDURE- HCreateResFile*(vRefNum: INTEGER;dirID: LONGINT;fileName: ME.Str255)    0A8H,01BH;
  81.     PROCEDURE- FSpOpenResFile*(spec: MF.FSSpec;permission: SHORTINT): INTEGER    030H,03CH,000H,00DH,0AAH,052H;
  82.     PROCEDURE- FSpCreateResFile*(spec: MF.FSSpec;creator: LONGINT;fileType: LONGINT; scriptTag: INTEGER)
  83.         030H,03CH,000H,00EH,0AAH,052H;
  84.     (* Sound Manager *)
  85.     PROCEDURE- SysBeep*(duration: INTEGER)    0A9H,0C8H;
  86.     PROCEDURE- SndDoCommand*(chan: SndChannelPtr;cmd: SndCommand;noWait: BOOLEAN): INTEGER    0A8H,003H;
  87.     PROCEDURE- SndDoImmediate*(chan: SndChannelPtr;cmd: SndCommand): INTEGER    0A8H,004H;
  88.     PROCEDURE- SndNewChannel*(VAR chan: SndChannelPtr;synth: INTEGER;init: LONGINT;
  89.         userRoutine: PROCEDURE): INTEGER    0A8H,007H;
  90.     PROCEDURE- SndDisposeChannel*(chan: SndChannelPtr;quietNow: BOOLEAN): INTEGER    0A8H,001H;
  91.     PROCEDURE- SndPlay*(chan: SndChannelPtr;sndHdl: ME.Handle;async: BOOLEAN): INTEGER    0A8H,005H;
  92.     PROCEDURE- SndAddModifier*(chan: SndChannelPtr;modifier: PROCEDURE;id: INTEGER;
  93.         init: LONGINT): INTEGER    0A8H,002H;
  94.     PROCEDURE- SndControl*(id: INTEGER;VAR cmd: SndCommand): INTEGER    0A8H,006H;
  95.     PROCEDURE- SndSoundManagerVersion*(): LONGINT    020H,03CH,000H,00CH,000H,008H,0A8H,000H;
  96.     PROCEDURE- SndStartFilePlay*(chan: SndChannelPtr;fRefNum: INTEGER;resNum: INTEGER;
  97.         bufferSize: LONGINT;theBuffer: ME.Ptr;theSelection: ME.Ptr;theCompletion: PROCEDURE;
  98.         async: BOOLEAN): INTEGER    020H,03CH,00DH,000H,000H,008H,0A8H,000H;
  99.     PROCEDURE- SndPauseFilePlay*(chan: SndChannelPtr): INTEGER    020H,03CH,002H,004H,000H,008H,0A8H,000H;
  100.     PROCEDURE- SndStopFilePlay*(chan: SndChannelPtr;async: BOOLEAN): INTEGER    020H,03CH,003H,008H,000H,008H,0A8H,000H;
  101.     PROCEDURE- SndChannelStatus*(chan: SndChannelPtr;theLength: INTEGER;theStatus: ME.Ptr): INTEGER
  102.         020H,03CH,000H,010H,000H,008H,0A8H,000H;
  103.     PROCEDURE- SndManagerStatus*(theLength: INTEGER;theStatus: ME.Ptr): INTEGER
  104.         020H,03CH,000H,014H,000H,008H,0A8H,000H;
  105.     PROCEDURE- SndGetSysBeepState*(VAR sysBeepState: INTEGER)    020H,03CH,000H,018H,000H,008H,0A8H,000H;
  106.     PROCEDURE- SndSetSysBeepState*(sysBeepState: INTEGER): INTEGER    020H,03CH,000H,01CH,000H,008H,0A8H,000H;
  107.     PROCEDURE- SndPlayDoubleBuffer*(chan: SndChannelPtr;theParams: ME.Ptr): INTEGER
  108.         020H,03CH,000H,020H,000H,008H,0A8H,000H;
  109.     PROCEDURE- MACEVersion*(): LONGINT    020H,03CH,000H,000H,000H,010H,0A8H,000H;
  110.     PROCEDURE- Comp3to1*(inBuffer: LONGINT;outBuffer: LONGINT;cnt: LONGINT;inState: LONGINT;
  111.         outState: LONGINT;numChannels: LONGINT;whichChannel: LONGINT)
  112.         020H,03CH,000H,004H,000H,010H,0A8H,000H;
  113.     PROCEDURE- Exp1to3*(inBuffer: LONGINT;outBuffer: LONGINT;cnt: LONGINT;inState: LONGINT;
  114.         outState: LONGINT;numChannels: LONGINT;whichChannel: LONGINT)
  115.         020H,03CH,000H,008H,000H,010H,0A8H,000H;
  116.     PROCEDURE- Comp6to1*(inBuffer: LONGINT;outBuffer: LONGINT;cnt: LONGINT;inState: LONGINT;
  117.         outState: LONGINT;numChannels: LONGINT;whichChannel: LONGINT)
  118.         020H,03CH,000H,00CH,000H,010H,0A8H,000H;
  119.     PROCEDURE- Exp1to6*(inBuffer: LONGINT;outBuffer: LONGINT;cnt: LONGINT;inState: LONGINT;
  120.         outState: LONGINT;numChannels: LONGINT;whichChannel: LONGINT)
  121.         020H,03CH,000H,010H,000H,010H,0A8H,000H;
  122.     (* Help Manager *)
  123.     PROCEDURE- HMGetHelpMenuHandle*(VAR mh : TB.MenuHandle) : INTEGER 030H,03CH,002H,000H,0A8H,030H;
  124.     PROCEDURE- HMGetBalloons*() : BOOLEAN    030H,03CH,000H,003H,0A8H,030H;
  125.     PROCEDURE- HMSetBalloons*(flag: BOOLEAN): INTEGER    030H,03CH,001H,004H,0A8H,030H;
  126.     PROCEDURE- HMIsBalloon*(): BOOLEAN    030H,03CH,000H,007H,0A8H,030H;
  127.     (* Scrap Manager *)
  128.     PROCEDURE- InfoScrap*() : PScrapStuff    0A9H,0F9H;
  129.     PROCEDURE- UnloadScrap*(): LONGINT    0A9H,0FAH;
  130.     PROCEDURE- LoadScrap*(): LONGINT    0A9H,0FBH;
  131.     PROCEDURE- GetScrap*(hDest: ME.Handle;theType: LONGINT;VAR offset: LONGINT): LONGINT    0A9H,0FDH;
  132.     PROCEDURE- ZeroScrap*(): LONGINT    0A9H,0FCH;
  133.     PROCEDURE- PutScrap*(length: LONGINT;theType: LONGINT;source: ME.Ptr): LONGINT    0A9H,0FEH;
  134. END MacMoreToolbox.
  135.